home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / jpi / filefunc.bas < prev    next >
BASIC Source File  |  1998-01-22  |  2KB  |  64 lines
  1. Attribute VB_Name = "FileFunctions"
  2. Function GetPropertyValueFromFile(Filename$, ValuePropertyName$)
  3. On Error GoTo NotFound
  4. Open Filename$ For Input As #1
  5.   Do
  6.     Line Input #1, a$
  7.     If a$ = "[ENDOFFILE]" Then Exit Do
  8.     If MiscFunctions.GetPropertyName(a$) = ValuePropertyName$ Then
  9.       GetPropertyValueFromFile = MiscFunctions.GetPropertyValue(a$)
  10.       Exit Do
  11.     End If
  12.   Loop
  13. Close #1
  14. NotFound:
  15. Exit Function
  16. End Function
  17. Sub OpenGameFile(Filename$, Filenumber)
  18. If Dir(Filename$) = Filename$ Then
  19.   Call OpenFile(Filename$, Filenumber)
  20. ElseIf Dir(Directory_GameData & Filename$) = Filename$ Then
  21.   Call OpenFile(Directory_GameData & Filename$, Filenumber)
  22. Else
  23.   'File is not found in the directory
  24.   Call OpenFile(Directory_GameData & GameEngine.GameDataFile$, Filenumber)
  25.   Call FindFileEntry(Filename$, Filenumber)
  26. End If
  27. End Sub
  28. Private Sub OpenFile(Filename$, Filenumber)
  29. Select Case Filenumber
  30. Case 1
  31.   Open Filename$ For Input As #1
  32. Case 2
  33.   Open Filename$ For Input As #2
  34. Case 3
  35.   Open Filename$ For Input As #3
  36. Case 4
  37.   Open Filename$ For Input As #4
  38. End Select
  39. End Sub
  40. Private Sub FindFileEntry(Filename$, Filenumber)
  41. Do
  42.   
  43.   a$ = GetLineFromFile(Filenumber)
  44.   If a$ = "[FILE]" Then
  45.     a$ = GetLineFromFile(Filenumber)
  46.     If MiscFunctions.GetPropertyValue(a$) = UCase$(Filename$) Then
  47.       Exit Do
  48.     End If
  49.   End If
  50. Loop
  51. End Sub
  52. Public Function GetLineFromFile(Filenumber)
  53. Select Case Filenumber
  54. Case 1
  55.   Line Input #1, GetLineFromFile
  56. Case 2
  57.   Line Input #2, GetLineFromFile
  58. Case 3
  59.   Line Input #3, GetLineFromFile
  60. Case 4
  61.   Line Input #4, GetLineFromFile
  62. End Select
  63. End Function
  64.